home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1998 / MacHack 1998.toast / Papers / From CodeWarrior to Delphi / Mac⁄Win⁄DLL / mymain.p < prev    next >
Encoding:
Text File  |  1997-11-04  |  470 b   |  31 lines  |  [TEXT/CWIE]
  1. PROGRAM GetInclusionBitstring;
  2.  
  3. {$IFC FALSE}
  4. USES    Types, QuickDraw, OSUtils, SegLoad, Fonts, Windows, Menus, TextEdit, Dialogs,
  5.         Processes, Events, QuickDrawText,
  6.         StandardFile,
  7.         PasLibIntf,
  8.         CumeCommon;
  9. {$ENDC}
  10.  
  11. uses Calcs;
  12.  
  13.  
  14.  
  15.  
  16. PROCEDURE DoIt;
  17.     var a,b,c,total:double;
  18.     BEGIN
  19.         writeln('Hello World.');
  20.         a := 123.0;
  21.         b := 222;
  22.         c := 543.0;
  23.         Add3Doubles(a,b,c,total);
  24.         writeln('Total:  ', total:15:3);
  25.         readln;
  26.     END;
  27.  
  28.  
  29. BEGIN
  30.     DoIt;
  31. END.